/* GUI CONVERTED from rcsoisce.p (converter v1.76) Mon Jul 30 07:02:42 2001 */
/* rcsoisce.p - Release Management Customer Schedules                      */
/* Copyright 1986-2002 QAD Inc., Carpinteria, CA, USA.                     */
/* All rights reserved worldwide.  This is an unpublished work.            */
/* $Revision: 1.2 $            */
/*                                                                         */
/* $Revision: 1.2 $     BY: Dan Herman    DATE: 07/16/01   ECO: *P006* */
/*V8:ConvertMode=Maintenance                                               */
/*                                                                          */
/* -----  W A R N I N G  -----  W A R N I N G  -----  W A R N I N G  -----  */
/*                                                                          */
/*         THIS PROGRAM IS A BOLT-ON TO STANDARD PRODUCT MFG/PRO.           */
/* ANY CHANGES TO THIS PROGRAM MUST BE PLACED ON A SEPARATE ECO THAN        */
/* STANDARD PRODUCT CHANGES.  FAILURE TO DO THIS CAUSES THE BOLT-ON CODE TO */
/* BE COMBINED WITH STANDARD PRODUCT AND RESULTS IN PATCH DELIVERY FAILURES.*/
/*                                                                          */
/* -----  W A R N I N G  -----  W A R N I N G  -----  W A R N I N G  -----  */
/*                                                                          */

         /* SHIPPER CONFIRM SUBPROGRAM */
/*------------------------------------------------------------------------
Purpose:       Retrieve a sales order and sales order line number
               for a container .

Exceptions:    None
Conditions:
Pre:           Container Charges must be enabled.
Post:
Notes:
History:

Inputs:
ipContainerId        (character)
ipShipFrom       (character)

Outputs:
opOrder          (character)
opOrderLine     (integer)
----------------------------------------------------------------------------*/

{mfdeclre.i}

define input parameter ipContainerId like abs_id no-undo.
define input parameter ipShipFrom like abs_shipfrom no-undo.
define output parameter opOrder like so_nbr no-undo.
define output parameter opOrderLine like sod_line no-undo.

define buffer cont_abs for abs_mstr.

for each cont_abs no-lock
   where cont_abs.abs_par_id = ipContainerId
   and   cont_abs.abs_shipfrom = ipShipFrom:
/*GUI*/ if global-beam-me-up then undo, leave.


   if cont_abs.abs_order <> "" then do:
      assign
         opOrder = cont_abs.abs_order
         opOrderLine = integer(cont_abs.abs_line).
      leave.
   end.
   else if cont_abs.abs_id begins "c" then do:
      {gprun.i ""rcsoisce.p""
               "(input cont_abs.abs_id,
                 input ipShipFrom,
                 output opOrder,
                 output opOrderLine)"}
/*GUI*/ if global-beam-me-up then undo, leave.

   end.
end.
/*GUI*/ if global-beam-me-up then undo, leave.
 /* FOR EACH CONT_ABS */
